home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette: Best of 1988 / BESTOF88.D64 / basic music.demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  324 b   |  9 lines
  1. 10 poke56,160:poke55,0:clr:poke649,15:f$="basic music"
  2. 20 poke53280,15:poke53281,15:print"[147][155]load";chr$(34);f$;chr$(34);",8"
  3. 30 print"          loading basic music"
  4. 40 print"           one moment please[155]"
  5. 50 a$=chr$(13)+"r[213]"+chr$(13)+"l[207]"+chr$(34)+"f"+chr$(34)+",8"+chr$(13)+"r[213]"
  6. 55 a$=a$+chr$(13)
  7. 60 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next:poke198,i-1
  8. 70 new
  9.